home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / virus / Safe.lha / Safe18.0 / InstallSafe next >
Text File  |  2002-06-20  |  8KB  |  167 lines

  1. ;Installation script for Safe
  2. ;Improved to use changeable name by Antonio Noguera. Thanks!
  3.  
  4. (set VER "v18.0")
  5.  
  6. (set PAR1 "")
  7. (set PAR2 "")
  8. (set PAR3 "")
  9. (set PAR4 "")
  10.  
  11.  
  12. (set YEP "Yes")
  13. (set NOP "No")
  14. (set NEED "Safe needs OS2.0+ !\n")
  15. (set WELC ("\n\n\n\nWelcome to Safe %s Installation Script.\n(c)1998-2002 by Zbigniew `Zeeball` Trzcionkowski\n\nThis script installs only Safe file\nand adds it to user-startup!" VER))
  16. (set WHER "Please select a place where you want to install Safe.")
  17. (set WHLP "Where do you want to have this!")
  18. (set CPNG "Copying Safe into ")
  19. (set ADDG "Adding Safe to \"S:User-Startup\".")
  20. (set AHLP "To check the system on startup!")
  21. (set QES1 "\n\n\nDo You want TCP Patch?")
  22. (set Q1HE "To detect activity of trojans/viruses that opens remote shells in TCP: device.")
  23. (set QES2 "\n\n\nDo You want Ram disk: renamed?")
  24. (set Q2HE "Renaming Ram disk: to RAM: that helps with some programs.")
  25. (set IMPO "On important systems You are supposed to change by hand the name of Safe file to other name (especially without \"v\" and \"V\").\n\nPlease type a new name for Safe.")
  26. (set MESS "Installation finished. Have a nice day.")
  27. (set QES3 "Do You want the size of C:MOUNT tested on every startup?\nThis script will do it automatically.")
  28. (set Q3HE "This is one of the most often infected files in system.")
  29.  
  30. (if (= @language "polski")
  31. (
  32. (set YEP "Tak")
  33. (set NOP "Nie")
  34. (set NEED "Safe potrzebuje OS2.0+ !\n")
  35. (set WELC ("\n\n\n\nWitaj w skrypcie instalacyjnym programu Safe %s!\n(c)1998-2002 by Zbigniew `Zeeball` Trzcionkowski\n\nTen skrypt instaluje tylko plik Safe-a\ni dodaje go do user-startup!" VER))
  36. (set WHER "Proszë wybraê miejsce, gdzie ma byê zainstalowany Safe.")
  37. (set WHLP "Gdzie go chcesz mieê!")
  38. (set CPNG "Kopiujë Safe-a do ")
  39. (set ADDG "Dodajë Safe-a do \"S:User-Startup\".")
  40. (set AHLP "Ûeby sprawdziê system na starcie!")
  41. (set QES1 "\n\n\nCzy chcesz TCP Patch?")
  42. (set Q1HE "Aby wykryê dziaîalnoôê wirusów/trojanów, które tworzâ zdalne shelle w urzâdzeniu TCP:")
  43. (set QES2 "\n\n\nCzy chcesz Ram disk: renamer?")
  44. (set Q2HE "Zmiana nazwy Ram disk: na RAM:, co pomaga przy pracy z niektórymi programami.")
  45. (set MESS "Installation finished. Miîego dnia.")
  46. (set QES3 "Czy chesz aby rozmiar pliku C:MOUNT byî sprawdzany przy kaûdym starcie?\nTen skrypt wykona wszystko automatycznie.")
  47. (set Q3HE "To jest jeden z najczëôciej infekowanych plików w systemie.")
  48. (set IMPO "On important systems You are supposed to change by hand the name of Safe file to other name (especially without \"v\" and \"V\").\n\nPlease type a new name for Safe.")
  49. ))
  50.  
  51. (if (= @language "español")
  52. (
  53. ; Spanish strings 1.0 (16.9.00) by Dámaso D. Estévez <amidde@arrakis.es>
  54. (set YEP "Sí")
  55. (set NOP "No")
  56. (set NEED "¡`Safe' requiere S.O. versión 2.0 o superior!\n")
  57. (set WELC ("\n\n\n\nBienvenido al instalador de `Safe' %s.\n(c)1998-2002 Zbigniew `Zeeball` Trzcionkowski\n\n¡Este script instalará únicamente el fichero `Safe' y\nhará que se ejecute desde su fichero `user-startup'!" VER))
  58. (set WHER "Por favor, elija donde desea instalar el programa.")
  59. (set WHLP "¡El lugar donde debe estar!")
  60. (set CPNG "Copiando `Safe' en ")
  61. (set ADDG "Añadiendo `Safe' al fichero \"S:User-Startup\".")
  62. (set AHLP "¡Para comprobar el sistema cada vez que arranque!")
  63. (set QES1 "\n\n\n¿Desea activar el parche TCP?")
  64. (set Q1HE "Le permite detectar la actividad de troyanos/virus que abren consolas remotas en el dispositivo `TCP:'")
  65. (set QES2 "\n\n\n¿Desea renombrar `Ram disk:'?")
  66. (set Q2HE "Renombrar la unidad `Ram disk:' como `RAM:' puede ayudarle con algunos programas.")
  67. (set MESS "Instalación concluida.  Que tenga un buen día.")
  68. (set IMPO "En sistemas importantes, considere cambiar manualmente el nombre del fichero `Safe' por otro, y que no contenga, preferentemente los caracteres \"v\" y/o \"V\.\n\nPor favor escriba un nuevo nombre para Safe.")
  69. (set QES3 "¿Desea que el tamaño de C:MOUNT se compruebe en cada arranque?\nEste script lo hará automáticamente.")
  70. (set Q3HE "Este es uno de los ficheros más comúnmente infectados del sistema.")
  71.  
  72. ))
  73.  
  74. (if (= @language "français")
  75. (
  76. ; French strings by Herve (herve.dupont@nordnet.fr)
  77. (set YEP "Oui")
  78. (set NOP "Non")
  79. (set NEED "Safe requiert l'AmigaOS 2.0+ !\n")
  80. (set WELC ("\n\n\n\nBienvenue dans le script d'installation de « Safe %s ».\n(c)1998-2002 de Zbigniew `Zeeball` Trzcionkowski\n\nCe script installe uniquement le fichier « Safe »\net l'ajoute au fichier « user-startup » !" VER))
  81. (set WHER "Veuillez sélectionner un répertoire où placer « Safe ».")
  82. (set WHLP "Où voulez-vous le mettre ?")
  83. (set CPNG "Copie « Safe » dans ")
  84. (set ADDG "Ajoute « Safe » dans \"S:User-Startup\".")
  85. (set AHLP "Pour vérifier le système dès le démarrage !")
  86. (set QES1 "\n\n\nVoulez-vous patcher TCP ?")
  87. (set Q1HE "Pour détecter l'activité d'un cheval de Troie/un virus qui ouvrirait un Shell à distance dans le périphérique TCP:.")
  88. (set QES2 "\n\n\nVoulez-vous renommer le « Ram disk: » ?")
  89. (set Q2HE "Renomme « Ram disk: » en « RAM: », ceci aide certains programmes.")
  90. (set QES3 "Voulez-vous que la taille de la commande « C:MOUNT » soit vérifiée à chaque démarrage ?\nCe script le fera automatiquement.")
  91. (set Q3HE "Ce fichier est celui qui est le plus souvent infecté dans le système.")
  92. (set MESS "Sur d'importants systèmes, vous êtes censé changer à la main le nom du fichier « Safe » vers un autre nom (sans \"v\" ni \"V\"). Passez une bonne journée...")
  93. ))
  94.  
  95. (if (= @language "italiano")
  96. (
  97. ; Italian strings by Fabrizio "Lanch^Trn" Bartoloni <lanch@tiscalinet.it>
  98. (set YEP "Si")
  99. (set NOP "No")
  100. (set NEED "Safe richiede OS2.0+ !\n")
  101. (set WELC ("\n\n\n\nBenvenuto allo Script di installazione di Safe %s.\n(c)1998-2002 di Zbigniew `Zeeball` Trzcionkowski\n\nQuesto script installa solo il file di Safe\n e lo aggiunge alla user-startup!" VER))
  102. (set WHER "Scegli per favore un posto dove vuoi installare Safe.")
  103. (set WHLP "Dove vuoi tenerlo!")
  104. (set CPNG "Sto copiando Safe in ")
  105. (set ADDG "Aggiungo Safe a \"S:User-Startup\".")
  106. (set AHLP "Per controllare il sistema all'avvio!")
  107. (set QES1 "\n\n\nVuoi il TCP Patch?")
  108. (set Q1HE "Per rilevare l'attività di trojans/viruses che aprono shell a distanza nel TCP: device.")
  109. (set QES2 "\n\n\nVuoi rinominare Ram disk:?")
  110. (set Q2HE "Rinominare Ram disk: a RAM: aiuta con alcuni programmi.")
  111. (set IMPO "Su sistemi importanti si suppone sia Tu a rinominare manualmente il file Safe ad un altro nome (che non contenga una \"v\" o \"V\").\n\nDigita per favore un nuovo nome per Safe.")
  112. (set MESS "Installazione terminata. Ti auguro buona giornata.")
  113. (set QES3 "Vuoi che la dimensione di C:MOUNT sia controllata ad ogni avvio?\nQuesto script lo farà automaticamente.")
  114. (set Q3HE "Questo è uno dei file infettati più spesso nel sistema.")
  115. ))
  116.  
  117.  
  118. (set app-name "Safe %s" VER)
  119.  
  120. (if(<(/(getversion)65536)37)(abort NEED))
  121.  
  122. (complete 0)
  123.  
  124. (run "SAFE OWNOUT")
  125. (run "QUICKTEST")
  126.  
  127. (complete 1)
  128.  
  129. (message (cat WELC))
  130.  
  131. (set dirk (askdir (prompt WHER) (help WHLP) (default "C:")))(set @default-dest dirk)
  132.  
  133. (copyfiles (prompt CPNG dirk) (source "safe") (dest dirk))
  134.  
  135. (complete 50)
  136.  
  137. (if(askbool(prompt QES2)(help Q2HE)(choices YEP NOP))(set PAR2 " RENRAM"))
  138.  
  139. (if(askbool(prompt QES3)(help Q3HE)(choices YEP NOP))((set PAR4 (getsize "C:MOUNT"))(set PAR3 " MOUNTSIZE=")))
  140.  
  141. (complete 80)
  142.  
  143. (set safename "dummyvar")
  144.  
  145. (until (= (patmatch "#?v#?" safename) 0)
  146.     (set safename
  147.         (askstring
  148.             (prompt IMPO)
  149.             (help @askstring-help)
  150.             (default "Safe")
  151.         )
  152.     )
  153. )
  154.  
  155. (if (= (patmatch "safe" safename) 0)
  156. (
  157. (delete (tackon dirk safename))
  158. (rename (tackon dirk "Safe") (tackon dirk safename))
  159. )
  160. )
  161.  
  162. (complete 90)
  163.  
  164. (startup "Safe" (prompt    ADDG) (help AHLP) (command ("%s%s%s%s%ld" (tackon dirk safename) PAR1 PAR2 PAR3 PAR4)))
  165.  
  166. (exit MESS)
  167.